home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d19
/
15rpch33.arc
/
DOORPCH.END
< prev
next >
Wrap
Text File
|
1988-09-28
|
3KB
|
127 lines
'******************************************************************************
'* DOORPCH.END Version 3.3 for PCBOARD 14.0 + Doors *
'* By Clint Labarthe, Ben Perron *
'* Raymond Clements *
'* Copyright (C), 1987, 1988 All Rights Reserved *
'* It MUST be "$INCLUDEd" at the END of your program *
'******************************************************************************
ERR.ROUTINE:
10000 SELECT CASE ERR
CASE 53
IF ERREXP% = 53 THEN
CALL OUT.PUT
ERREXP% = 1
RESUME NEXT
END IF
LN$ = "File not found"
CASE 57
IF ERREXP% = 57 THEN
IF ERRCNT% < 10 THEN
ERRCNT% = ERRCNT% + 1
ERREXP% = 1
RESUME NEXT
END IF
END IF
LN$ = "Comm Port I/O Error"
CASE 63
IF ERREXP% = 70 THEN
IF ERRCNT% < 50 THEN
ERRCNT% = ERRCNT% + 1
D.TIME% = 3
CALL DELAY.TIME(D.TIME%)
RESUME
END IF
END IF
LN$ = "Bad record number"
CASE 64
LN$ = "Bad file name specified"
CASE 70
IF ERREXP% = 70 THEN
IF ERRCNT% < 50 THEN
D.TIME% = 3
CALL DELAY.TIME(D.TIME%)
ERRCNT% = ERRCNT% + 1
RESUME
END IF
END IF
LN$ = "Permission denied"
CASE ELSE
END SELECT
GOSUB 10025
LN$ = "Please notify SysOp: Pgm failure in Main Module of " + PROGNAME$: GOSUB 10025
LN$ = "Error # " + STR$(ERR) + "in line " + STR$(ERL): GOSUB 10025
ERREXP% = ERR: ERRCNT% = -1
10020 CALL EXITG
10025 IF COMPRTOPN% <> 1 THEN
PRINT LN$
LN$ = ""
ELSE
CALL OUT.PUT
END IF
RETURN
10170 CALL OUT.PUT
RETURN
10185 CALL CLR.SCRN
RETURN
10200 CALL OUT.NCR
RETURN
10230 CALL IN.PUT
RETURN
10235 CALL GET.KEY
RETURN
10400 'Return to PCBoard
10410 CALL EXITG
10450 CALL SCRN.POS
RETURN
10500 CALL MUSICG
RETURN
SET.COLORS:
CALL SET.COLORS
RETURN
BLNKRED:
BLINK% = 1
RED:
FGC% = 1
RETURN
BLNKGREEN:
BLINK% = 1
GREEN:
FGC% = 2
RETURN
BLNKYELLOW:
BLINK% = 1
YELLOW:
HIGH% = 1
FGC% = 3
RETURN
BLNKBLUE:
BLINK% = 1
BLUE:
FGC% = 4
RETURN
BLNKMAGENTA:
BLINK% = 1
MAGENTA:
FGC% = 5
RETURN
BLNKCYAN:
BLINK% = 1
CYAN:
FGC% = 6
RETURN
BLNKWHITE:
BLINK% = 1
WHITE:
FGC% = 7
RETURN
REDWHT:
FGC% = 1
BGC% = 7
HIGH% = 0
RETURN
BLKWHT:
FGC% = 0
BGC% = 7
RETURN